home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 142 / Gekkan Dennou Club - 2000.3 Vol. 142 (Japan).7z / Gekkan Dennou Club - 2000.3 Vol. 142 (Japan) (Track 1).bin / tools / s_tool / picsave.s < prev    next >
Text File  |  1997-10-26  |  34KB  |  2,166 lines
  1.     .include    doscall.mac
  2.     .include    iocscall.mac
  3.  
  4.         .xref    _DataX
  5.  
  6. L000014:
  7.     .dc.b    '$Id: picsave.ap,v 2.0.0.5 1995/09/26 01:03:23 GORRY Exp GOR'
  8.     .dc.b    'RY $',$00
  9. _PICSAVE_::
  10.     clr.w    -(sp)
  11.     bra    L00005a
  12. _M_PICSAVE_::
  13.     st.b    -(sp)
  14. L00005a:
  15.     movem.l    d1-d7/a0-a6,-(sp)
  16.     lea.l    $003e(sp),a0
  17.     link.w    a5,#-2368
  18.     lea.l    -$0940(a5),a5
  19.     lea.l    L00017a(pc),a1
  20.     move.l    a5,(a1)
  21.     clr.l    -(sp)
  22.     DOS    _SUPER
  23.     move.l    d0,(sp)
  24.     bsr    L000092
  25.     move.l    d0,d1
  26.     tst.l    (sp)
  27.     bmi    L000080
  28.     DOS    _SUPER
  29. L000080:
  30.     addq.w    #4,sp
  31.     move.l    d1,d0
  32.     lea.l    $0940(a5),a5
  33.     unlk    a5
  34.     movem.l    (sp)+,d1-d7/a0-a6
  35.     addq.w    #2,sp
  36.     rts
  37.  
  38. L000092:
  39.     move.l    sp,$0816(a5)
  40.     move.w    -$0006(a0),d0
  41.     move.l    (a0)+,$0802(a5)
  42.     move.l    (a0)+,$080a(a5)
  43.     move.l    (a0)+,$0824(a5)
  44.     move.l    (a0)+,$0828(a5)
  45.     move.l    (a0)+,$082c(a5)
  46.     move.l    (a0)+,$0830(a5)
  47.     move.l    (a0)+,$0812(a5)
  48.     move.l    (a0)+,$0806(a5)
  49.     move.l    (a0)+,$081a(a5)
  50.     move.l    (a0)+,$081e(a5)
  51.     tst.w    d0
  52.     sne.b    $083d(a5)
  53.     bsr    L0003e4
  54.     bsr    L0002d2
  55.     tst.b    $083d(a5)
  56.     bne    L0000ea
  57.     move.w    #$0020,-(sp)        ;' '
  58.     move.l    $080a(a5),-(sp)
  59.     DOS    _CREATE
  60.     addq.w    #6,sp
  61.     tst.l    d0
  62.     bmi    L000148
  63.     move.w    d0,$0822(a5)
  64. L0000ea:
  65.     tst.b    $083d(a5)
  66.     bne    L0000fc
  67.     cmpi.l    #$00000080,$081a(a5)
  68.     bcs    L000924
  69. L0000fc:
  70.     movea.l    $0806(a5),a6
  71.     move.l    $081a(a5),d6
  72.     moveq.l    #$10,d7
  73.     moveq.l    #$00,d5
  74.     move.w    $0822(a5),-(sp)
  75.     pea.l    L00093c(pc)
  76.     bsr    L0008a6
  77.     addq.w    #6,sp
  78.     bsr    L00017e
  79.     moveq.l    #$1a,d0
  80.     bsr    L00085e
  81.     moveq.l    #$00,d0
  82.     bsr    L00085e
  83.     moveq.l    #$00,d0
  84.     bsr    L000882
  85.     moveq.l    #$0f,d0
  86.     bsr    L000882
  87.     move.w    $0834(a5),d0
  88.     bsr    L000882
  89.     move.w    $0836(a5),d0
  90.     bsr    L000882
  91.     bsr    L000402
  92.     bsr    L00042e
  93. L000148:
  94.     movea.l    L00017a(pc),a5
  95.     move.b    $083c(a5),$00e80028
  96.     movea.l    $0816(a5),sp
  97.     move.l    d0,-(sp)
  98.     tst.b    $083d(a5)
  99.     beq    L00016e
  100.     move.l    $081a(a5),d0
  101.     sub.l    d6,d0
  102.     movea.l    $080a(a5),a0
  103.     move.l    d0,(a0)
  104.     bra    L000176
  105. L00016e:
  106.     move.w    $0822(a5),-(sp)
  107.     DOS    _CLOSE
  108.     addq.w    #2,sp
  109. L000176:
  110.     move.l    (sp)+,d0
  111.     rts
  112.  
  113. L00017a:
  114.     .dc.l    $00000000
  115. L00017e:
  116.     move.w    $0822(a5),-(sp)
  117.     move.l    $081e(a5),d2
  118.     btst.l    #$00,d2
  119.     bne    L000230
  120.     pea.l    L00023e(pc)
  121.     bsr    L0008a6
  122.     addq.w    #4,sp
  123.     clr.b    $083e(a5)
  124.     pea.l    $083e(a5)
  125.     clr.l    -(sp)
  126.     pea.l    L000246(pc)
  127.     DOS    _GETENV
  128.     lea.l    $000c(sp),sp
  129.     tst.l    d0
  130.     bne    L0001c2
  131.     pea.l    L000242(pc)
  132.     bsr    L0008a6
  133.     addq.w    #4,sp
  134.     lea.l    $083e(a5),a0
  135.     bsr    L00025c
  136. L0001c2:
  137.     pea.l    L00024b(pc)
  138.     bsr    L0008a6
  139.     addq.w    #4,sp
  140.     move.l    $0824(a5),d1
  141.     bpl    L0001d4
  142.     moveq.l    #$00,d1
  143. L0001d4:
  144.     bsr    L000286
  145.     move.l    $0828(a5),d1
  146.     bpl    L0001e0
  147.     moveq.l    #$00,d1
  148. L0001e0:
  149.     bsr    L000286
  150.     btst.l    #$02,d2
  151.     beq    L0001f2
  152.     btst.l    #$10,d2
  153.     beq    L000208
  154.     bra    L0001fe
  155. L0001f2:
  156.     move.w    $00e80028,d1
  157.     btst.l    #$04,d1
  158.     bne    L000208
  159. L0001fe:
  160.     pea.l    L00024f(pc)
  161.     bsr    L0008a6
  162.     addq.w    #4,sp
  163. L000208:
  164.     btst.l    #$02,d2
  165.     beq    L000216
  166.     btst.l    #$11,d2
  167.     beq    L000226
  168.     bra    L00021c
  169. L000216:
  170.     btst.l    #$01,d1
  171.     beq    L000226
  172. L00021c:
  173.     pea.l    L000254(pc)
  174.     bsr    L0008a6
  175.     addq.w    #4,sp
  176. L000226:
  177.     pea.l    L000259(pc)
  178.     bsr    L0008a6
  179.     addq.w    #4,sp
  180. L000230:
  181.     move.l    $0812(a5),d0
  182.     beq    L00023a
  183.     movea.l    d0,a0
  184.     bsr    L00025c
  185. L00023a:
  186.     addq.w    #2,sp
  187.     rts
  188.  
  189. L00023e:
  190.     .dc.b    '/MM',$00
  191. L000242:
  192.     .dc.b    '/AU',$00
  193. L000246:
  194.     .dc.b    'USER',$00
  195. L00024b:
  196.     .dc.b    '/XY',$00
  197. L00024f:
  198.     .dc.b    '/XFL',$00
  199. L000254:
  200.     .dc.b    '/XSS',$00
  201. L000259:
  202.     .dc.b    $2f,$3a,$00
  203. L00025c:
  204.     movem.l    d1/a1,-(sp)
  205.     movea.l    a0,a1
  206. L000262:
  207.     move.b    (a0)+,d1
  208.     beq    L000272
  209.     cmpi.b    #$1a,d1
  210.     bne    L000270
  211.     clr.b    -(a0)
  212.     bra    L000272
  213. L000270:
  214.     bra    L000262
  215. L000272:
  216.     move.w    $0822(a5),-(sp)
  217.     move.l    a1,-(sp)
  218.     bsr    L0008a6
  219.     addq.w    #6,sp
  220.     move.b    d1,(a0)
  221.     movem.l    (sp)+,d1/a1
  222.     rts
  223.  
  224. L000286:
  225.     movem.l    d0-d3/a0,-(sp)
  226.     move.w    $0822(a5),-(sp)
  227.     lea.l    L0002ca(pc),a0
  228.     moveq.l    #$03,d3
  229. L000294:
  230.     divu.w    (a0)+,d1
  231.     addi.b    #$30,d1            ;'0'
  232.     moveq.l    #$00,d0
  233.     move.b    d1,d0
  234.     subq.w    #8,d7
  235.     rol.l    d7,d0
  236.     or.l    d0,d5
  237.     tst.w    d7
  238.     bpl    L0002ba
  239.     add.w    #$0010,d7
  240.     move.w    d5,(a6)+
  241.     subq.l    #2,d6
  242.     bne    L0002b6
  243.     bsr    L0008fc
  244. L0002b6:
  245.     clr.w    d5
  246.     swap.w    d5
  247. L0002ba:
  248.     clr.w    d1
  249.     swap.w    d1
  250.     dbra    d3,L000294
  251.     addq.w    #2,sp
  252.     movem.l    (sp)+,d0-d3/a0
  253.     rts
  254.  
  255. L0002ca:
  256.     .dc.b    $03,$e8,$00,$64,$00,$0a,$00,$01
  257. L0002d2:
  258.     move.l    d7,-(sp)
  259.     move.l    $081e(a5),d7
  260.     move.l    $082c(a5),d1
  261.     bpl    L0002f0
  262.     btst.l    #$0f,d7
  263.     bne    L00092a
  264.     move.l    #$000001ff,d1
  265.     move.l    d1,$082c(a5)
  266. L0002f0:
  267.     move.l    $0824(a5),d0
  268.     bpl    L000304
  269.     btst.l    #$0f,d7
  270.     bne    L00092a
  271.     moveq.l    #$00,d0
  272.     move.l    d0,$0824(a5)
  273. L000304:
  274.     cmp.l    d0,d1
  275.     bcc    L000312
  276.     exg.l    d0,d1
  277.     move.l    d0,$0824(a5)
  278.     move.l    d1,$082c(a5)
  279. L000312:
  280.     btst.l    #$0f,d7
  281.     bne    L00032e
  282.     cmpi.w    #$0200,d1
  283.     bcc    L00092a
  284.     sub.l    d0,d1
  285.     addq.l    #1,d1
  286.     cmpi.w    #$0200,d1
  287.     bhi    L00092a
  288.     bra    L000332
  289. L00032e:
  290.     sub.l    d0,d1
  291.     addq.l    #1,d1
  292. L000332:
  293.     move.w    d1,$0834(a5)
  294.     move.l    $0830(a5),d1
  295.     bpl    L00034e
  296.     btst.l    #$0f,d7
  297.     bne    L00092a
  298.     move.l    #$000001ff,d1
  299.     move.l    d1,$0830(a5)
  300. L00034e:
  301.     move.l    $0828(a5),d0
  302.     bpl    L000362
  303.     btst.l    #$0f,d7
  304.     bne    L00092a
  305.     moveq.l    #$00,d0
  306.     move.l    d0,$0828(a5)
  307. L000362:
  308.     cmp.l    d0,d1
  309.     bcc    L000370
  310.     exg.l    d0,d1
  311.     move.l    d0,$0828(a5)
  312.     move.l    d1,$0830(a5)
  313. L000370:
  314.     btst.l    #$0f,d7
  315.     bne    L00038c
  316.     cmpi.w    #$0200,d1
  317.     bcc    L00092a
  318.     sub.l    d0,d1
  319.     addq.l    #1,d1
  320.     cmpi.w    #$0200,d1
  321.     bhi    L00092a
  322.     bra    L000390
  323. L00038c:
  324.     sub.l    d0,d1
  325.     addq.l    #1,d1
  326. L000390:
  327.     move.w    d1,$0836(a5)
  328.     move.w    #$0400,$083a(a5)
  329.     btst.l    #$0f,d7
  330.     beq    L0003b6
  331. *    move.w    $0834(a5),d0
  332. *    addq.w    #7,d0
  333. *    andi.w    #$fff8,d0
  334. *    add.w    d0,d0
  335. *    cmp.w    $083a(a5),d0
  336. *    bls    L0003b6
  337. *    move.w    d0,$083a(a5)
  338.  
  339.     move.l    _DataX,d0        ******TNB
  340.     add.l    d0,d0
  341.     move.w    d0,$083a(a5)        ******TNB
  342.  
  343. L0003b6:
  344.     move.l    $0828(a5),d0
  345.     mulu.w    $083a(a5),d0
  346.     move.l    $0824(a5),d1
  347.     ext.l    d1
  348.     add.l    d1,d1
  349.     add.l    d1,d0
  350.     add.l    $0802(a5),d0
  351.     move.l    d0,$080e(a5)
  352.     move.w    $0834(a5),d0
  353.     add.w    d0,d0
  354.     move.w    $083a(a5),d1
  355.     sub.w    d0,d1
  356.     move.w    d1,$0838(a5)
  357.     move.l    (sp)+,d7
  358.     rts
  359.  
  360. L0003e4:
  361.     move.b    $00e80028,$083c(a5)
  362.     cmpi.b    #$03,$00e82401
  363.     bne    L000930
  364.     move.b    #$03,$00e80028
  365.     rts
  366.  
  367. L000402:
  368.     movea.l    a5,a0
  369.     moveq.l    #$00,d0
  370.     moveq.l    #$f8,d1
  371.     moveq.l    #$08,d2
  372.     moveq.l    #$00,d3
  373.     moveq.l    #$7f,d4
  374. L00040e:
  375.     move.w    d0,(a0)+
  376.     move.w    d1,(a0)+
  377.     move.w    d2,(a0)+
  378.     move.w    d3,(a0)+
  379.     addq.w    #8,d1
  380.     addq.w    #8,d2
  381.     dbra    d4,L00040e
  382.     move.w    #$03f8,$0002(a5)
  383.     move.w    d3,-$0004(a0)
  384.     move.w    d3,$0800(a5)
  385.     rts
  386.  
  387. L00042e:
  388.     movea.l    $080e(a5),a4
  389.     bsr    L000704
  390.     moveq.l    #$00,d2
  391.     move.w    (a4),d2
  392.     not.w    d2
  393.     moveq.l    #$ff,d3
  394.     move.w    $0836(a5),d0
  395.     subq.w    #1,d0
  396. L000444:
  397.     move.w    d0,-(sp)
  398.     moveq.l    #$00,d4
  399.     move.w    $0834(a5),d4
  400.     subq.w    #1,d4
  401. L00044e:
  402.     addq.l    #1,d3
  403.     move.w    (a4)+,d2
  404.     bclr.l    #$00,d2
  405.     dbne    d4,L00044e
  406.     beq    L0006ee
  407.     bsr    L00075c
  408.     lea.l    -$0008(a5),a0
  409.     moveq.l    #$7f,d0
  410. L000468:
  411.     addq.w    #8,a0
  412.     cmp.w    (a0),d2
  413.     dbeq    d0,L000468
  414.     bne    L0004d6
  415.     eori.w    #$007f,d0
  416.     moveq.l    #$00,d1
  417.     move.b    d0,d1
  418.     ori.b    #$80,d1
  419.     subq.w    #8,d7
  420.     rol.l    d7,d1
  421.     or.l    d1,d5
  422.     tst.w    d7
  423.     bpl    L00049a
  424.     add.w    #$0010,d7
  425.     move.w    d5,(a6)+
  426.     subq.l    #2,d6
  427.     bne    L000496
  428.     bsr    L0008fc
  429. L000496:
  430.     clr.w    d5
  431.     swap.w    d5
  432. L00049a:
  433.     lsl.w    #3,d0
  434.     lea.l    $00(a5,d0.w),a0
  435.     cmp.w    $0800(a5),d0
  436.     beq    L0004d2
  437.     move.w    $0002(a0),d1
  438.     move.w    $0004(a0),d2
  439.     move.w    d1,$02(a5,d2.w)
  440.     move.w    d2,$04(a5,d1.w)
  441.     move.w    $0800(a5),d1
  442.     move.w    $04(a5,d1.w),d2
  443.     move.w    d1,$0002(a0)
  444.     move.w    d2,$0004(a0)
  445.     move.w    d0,$02(a5,d2.w)
  446.     move.w    d0,$04(a5,d1.w)
  447.     move.w    d0,$0800(a5)
  448. L0004d2:
  449.     move.w    (a0),d2
  450.     bra    L00050a
  451. L0004d6:
  452.     moveq.l    #$00,d0
  453.     move.w    d2,d0
  454.     lsr.w    #1,d0
  455.     sub.w    #$0010,d7
  456.     rol.l    d7,d0
  457.     or.l    d0,d5
  458.     tst.w    d7
  459.     bpl    L0004fa
  460.     add.w    #$0010,d7
  461.     move.w    d5,(a6)+
  462.     subq.l    #2,d6
  463.     bne    L0004f6
  464.     bsr    L0008fc
  465. L0004f6:
  466.     clr.w    d5
  467.     swap.w    d5
  468. L0004fa:
  469.     move.w    $0800(a5),d0
  470.     move.w    $04(a5,d0.w),d0
  471.     move.w    d0,$0800(a5)
  472.     move.w    d2,$00(a5,d0.w)
  473. L00050a:
  474.     move.w    (sp),d0
  475.     move.w    d4,-(sp)
  476.     movea.l    a4,a3
  477.     move.w    d2,-(a3)
  478.     dbra    d0,L00051a
  479.     bra    L0006d4
  480. L00051a:
  481.     move.w    d2,d1
  482.     addq.w    #1,d1
  483.     movea.w    $0834(a5),a0
  484.     adda.w    $083a(a5),a3
  485.     cmp.w    (a3),d1
  486.     bne    L000542
  487.     dbra    d7,L00053c
  488.     moveq.l    #$0f,d7
  489.     move.w    d5,(a6)+
  490.     subq.l    #2,d6
  491.     bne    L00053a
  492.     bsr    L0008fc
  493. L00053a:
  494.     moveq.l    #$00,d5
  495. L00053c:
  496.     bset.l    d7,d5
  497.     bra    L0005e4
  498. L000542:
  499.     subq.w    #2,a3
  500.     addq.w    #1,d4
  501.     cmp.w    a0,d4
  502.     bge    L000566
  503.     cmp.w    (a3),d1
  504.     bne    L000566
  505.     dbra    d7,L000560
  506.     moveq.l    #$0f,d7
  507.     move.w    d5,(a6)+
  508.     subq.l    #2,d6
  509.     bne    L00055e
  510.     bsr    L0008fc
  511. L00055e:
  512.     moveq.l    #$00,d5
  513. L000560:
  514.     bset.l    d7,d5
  515.     bra    L000610
  516. L000566:
  517.     addq.w    #4,a3
  518.     subq.w    #2,d4
  519.     bcs    L000588
  520.     cmp.w    (a3),d1
  521.     bne    L000588
  522.     dbra    d7,L000582
  523.     moveq.l    #$0f,d7
  524.     move.w    d5,(a6)+
  525.     subq.l    #2,d6
  526.     bne    L000580
  527.     bsr    L0008fc
  528. L000580:
  529.     moveq.l    #$00,d5
  530. L000582:
  531.     bset.l    d7,d5
  532.     bra    L00063a
  533. L000588:
  534.     subq.w    #6,a3
  535.     addq.w    #3,d4
  536.     cmp.w    a0,d4
  537.     bge    L0005ac
  538.     cmp.w    (a3),d1
  539.     bne    L0005ac
  540.     dbra    d7,L0005a6
  541.     moveq.l    #$0f,d7
  542.     move.w    d5,(a6)+
  543.     subq.l    #2,d6
  544.     bne    L0005a4
  545.     bsr    L0008fc
  546. L0005a4:
  547.     moveq.l    #$00,d5
  548. L0005a6:
  549.     bset.l    d7,d5
  550.     bra    L000668
  551. L0005ac:
  552.     addq.w    #8,a3
  553.     subq.w    #4,d4
  554.     bcs    L0005ce
  555.     cmp.w    (a3),d1
  556.     bne    L0005ce
  557.     dbra    d7,L0005c8
  558.     moveq.l    #$0f,d7
  559.     move.w    d5,(a6)+
  560.     subq.l    #2,d6
  561.     bne    L0005c6
  562.     bsr    L0008fc
  563. L0005c6:
  564.     moveq.l    #$00,d5
  565. L0005c8:
  566.     bset.l    d7,d5
  567.     bra    L000694
  568. L0005ce:
  569.     bra    L0006d4
  570. L0005d2:
  571.     move.w    d2,(a3)
  572.     dbra    d0,L0005dc
  573.     bra    L0006b6
  574. L0005dc:
  575.     adda.w    $083a(a5),a3
  576.     cmp.w    (a3),d1
  577.     bne    L000604
  578. L0005e4:
  579.     moveq.l    #$02,d3
  580.     subq.w    #2,d7
  581.     rol.l    d7,d3
  582.     or.l    d3,d5
  583.     tst.w    d7
  584.     bpl    L000602
  585.     add.w    #$0010,d7
  586.     move.w    d5,(a6)+
  587.     subq.l    #2,d6
  588.     bne    L0005fe
  589.     bsr    L0008fc
  590. L0005fe:
  591.     clr.w    d5
  592.     swap.w    d5
  593. L000602:
  594.     bra    L0005d2
  595. L000604:
  596.     subq.w    #2,a3
  597.     addq.w    #1,d4
  598.     cmp.w    a0,d4
  599.     bge    L000630
  600.     cmp.w    (a3),d1
  601.     bne    L000630
  602. L000610:
  603.     moveq.l    #$01,d3
  604.     subq.w    #2,d7
  605.     rol.l    d7,d3
  606.     or.l    d3,d5
  607.     tst.w    d7
  608.     bpl    L00062e
  609.     add.w    #$0010,d7
  610.     move.w    d5,(a6)+
  611.     subq.l    #2,d6
  612.     bne    L00062a
  613.     bsr    L0008fc
  614. L00062a:
  615.     clr.w    d5
  616.     swap.w    d5
  617. L00062e:
  618.     bra    L0005d2
  619. L000630:
  620.     addq.w    #4,a3
  621.     subq.w    #2,d4
  622.     bcs    L00065c
  623.     cmp.w    (a3),d1
  624.     bne    L00065c
  625. L00063a:
  626.     moveq.l    #$03,d3
  627.     subq.w    #2,d7
  628.     rol.l    d7,d3
  629.     or.l    d3,d5
  630.     tst.w    d7
  631.     bpl    L000658
  632.     add.w    #$0010,d7
  633.     move.w    d5,(a6)+
  634.     subq.l    #2,d6
  635.     bne    L000654
  636.     bsr    L0008fc
  637. L000654:
  638.     clr.w    d5
  639.     swap.w    d5
  640. L000658:
  641.     bra    L0005d2
  642. L00065c:
  643.     subq.w    #6,a3
  644.     addq.w    #3,d4
  645.     cmp.w    a0,d4
  646.     bge    L00068a
  647.     cmp.w    (a3),d1
  648.     bne    L00068a
  649. L000668:
  650.     moveq.l    #$02,d3
  651.     subq.w    #4,d7
  652.     rol.l    d7,d3
  653.     or.l    d3,d5
  654.     tst.w    d7
  655.     bpl    L000686
  656.     add.w    #$0010,d7
  657.     move.w    d5,(a6)+
  658.     subq.l    #2,d6
  659.     bne    L000682
  660.     bsr    L0008fc
  661. L000682:
  662.     clr.w    d5
  663.     swap.w    d5
  664. L000686:
  665.     bra    L0005d2
  666. L00068a:
  667.     addq.w    #8,a3
  668.     subq.w    #4,d4
  669.     bcs    L0006b6
  670.     cmp.w    (a3),d1
  671.     bne    L0006b6
  672. L000694:
  673.     moveq.l    #$03,d3
  674.     subq.w    #4,d7
  675.     rol.l    d7,d3
  676.     or.l    d3,d5
  677.     tst.w    d7
  678.     bpl    L0006b2
  679.     add.w    #$0010,d7
  680.     move.w    d5,(a6)+
  681.     subq.l    #2,d6
  682.     bne    L0006ae
  683.     bsr    L0008fc
  684. L0006ae:
  685.     clr.w    d5
  686.     swap.w    d5
  687. L0006b2:
  688.     bra    L0005d2
  689. L0006b6:
  690.     moveq.l    #$00,d3
  691.     subq.w    #2,d7
  692.     rol.l    d7,d3
  693.     or.l    d3,d5
  694.     tst.w    d7
  695.     bpl    L0006d4
  696.     add.w    #$0010,d7
  697.     move.w    d5,(a6)+
  698.     subq.l    #2,d6
  699.     bne    L0006d0
  700.     bsr    L0008fc
  701. L0006d0:
  702.     clr.w    d5
  703.     swap.w    d5
  704. L0006d4:
  705.     dbra    d7,L0006e6
  706.     moveq.l    #$0f,d7
  707.     move.w    d5,(a6)+
  708.     subq.l    #2,d6
  709.     bne    L0006e4
  710.     bsr    L0008fc
  711. L0006e4:
  712.     moveq.l    #$00,d5
  713. L0006e6:
  714.     move.w    (sp)+,d4
  715.     moveq.l    #$ff,d3
  716.     dbra    d4,L00044e
  717. L0006ee:
  718.     adda.w    $0838(a5),a4
  719.     move.w    (sp)+,d0
  720.     dbra    d0,L000444
  721.     addq.l    #1,d3
  722.     bsr    L00075c
  723.     bsr    L0008d4
  724.     moveq.l    #$00,d0
  725.     rts
  726.  
  727. L000704:
  728.     move.l    a4,-(sp)
  729.     moveq.l    #$fe,d3
  730.     move.w    (a4),d2
  731.     and.w    d3,d2
  732.     not.w    d2
  733.     move.w    $0836(a5),d1
  734.     subq.w    #1,d1
  735. L000714:
  736.     move.w    $0834(a5),d4
  737.     lsr.w    #1,d4
  738.     bcc    L00072a
  739.     move.w    (a4),d0
  740.     and.w    d3,d0
  741.     cmp.w    d2,d0
  742.     beq    L000728
  743.     move.w    d0,d2
  744.     addq.w    #1,d0
  745. L000728:
  746.     move.w    d0,(a4)+
  747. L00072a:
  748.     dbra    d4,L000730
  749.     bra    L000750
  750. L000730:
  751.     move.w    (a4),d0
  752.     and.w    d3,d0
  753.     cmp.w    d2,d0
  754.     beq    L00073c
  755.     move.w    d0,d2
  756.     addq.w    #1,d0
  757. L00073c:
  758.     move.w    d0,(a4)+
  759.     move.w    (a4),d0
  760.     and.w    d3,d0
  761.     cmp.w    d2,d0
  762.     beq    L00074a
  763.     move.w    d0,d2
  764.     addq.w    #1,d0
  765. L00074a:
  766.     move.w    d0,(a4)+
  767.     dbra    d4,L000730
  768. L000750:
  769.     adda.w    $0838(a5),a4
  770.     dbra    d1,L000714
  771.     movea.l    (sp)+,a4
  772.     rts
  773.  
  774. L00075c:
  775.     moveq.l    #$02,d0
  776.     cmp.l    d0,d3
  777.     bcc    L000780
  778.     subq.w    #2,d7
  779.     rol.l    d7,d3
  780.     or.l    d3,d5
  781.     tst.w    d7
  782.     bpl    L00077e
  783.     add.w    #$0010,d7
  784.     move.w    d5,(a6)+
  785.     subq.l    #2,d6
  786.     bne    L00077a
  787.     bsr    L0008fc
  788. L00077a:
  789.     clr.w    d5
  790.     swap.w    d5
  791. L00077e:
  792.     rts
  793.  
  794. L000780:
  795.     moveq.l    #$06,d1
  796. L000782:
  797.     cmp.l    d1,d3
  798.     bcs    L00078c
  799.     addq.w    #1,d0
  800.     bset.l    d0,d1
  801.     bra    L000782
  802. L00078c:
  803.     bclr.l    d0,d1
  804.     sub.l    d1,d3
  805.     cmpi.w    #$0011,d0
  806.     bcc    L0007d0
  807.     sub.w    d0,d7
  808.     rol.l    d7,d1
  809.     or.l    d1,d5
  810.     tst.w    d7
  811.     bpl    L0007b2
  812.     add.w    #$0010,d7
  813.     move.w    d5,(a6)+
  814.     subq.l    #2,d6
  815.     bne    L0007ae
  816.     bsr    L0008fc
  817. L0007ae:
  818.     clr.w    d5
  819.     swap.w    d5
  820. L0007b2:
  821.     sub.w    d0,d7
  822.     rol.l    d7,d3
  823.     or.l    d3,d5
  824.     tst.w    d7
  825.     bpl    L0007ce
  826.     add.w    #$0010,d7
  827.     move.w    d5,(a6)+
  828.     subq.l    #2,d6
  829.     bne    L0007ca
  830.     bsr    L0008fc
  831. L0007ca:
  832.     clr.w    d5
  833.     swap.w    d5
  834. L0007ce:
  835.     rts
  836.  
  837. L0007d0:
  838.     sub.w    #$0010,d0
  839.     move.w    d1,-(sp)
  840.     clr.w    d1
  841.     swap.w    d1
  842.     sub.w    d0,d7
  843.     rol.l    d7,d1
  844.     or.l    d1,d5
  845.     tst.w    d7
  846.     bpl    L0007f6
  847.     add.w    #$0010,d7
  848.     move.w    d5,(a6)+
  849.     subq.l    #2,d6
  850.     bne    L0007f2
  851.     bsr    L0008fc
  852. L0007f2:
  853.     clr.w    d5
  854.     swap.w    d5
  855. L0007f6:
  856.     moveq.l    #$00,d1
  857.     move.w    (sp)+,d1
  858.     sub.w    #$0010,d7
  859.     rol.l    d7,d1
  860.     or.l    d1,d5
  861.     tst.w    d7
  862.     bpl    L000818
  863.     add.w    #$0010,d7
  864.     move.w    d5,(a6)+
  865.     subq.l    #2,d6
  866.     bne    L000814
  867.     bsr    L0008fc
  868. L000814:
  869.     clr.w    d5
  870.     swap.w    d5
  871. L000818:
  872.     move.w    d3,-(sp)
  873.     clr.w    d3
  874.     swap.w    d3
  875.     sub.w    d0,d7
  876.     rol.l    d7,d3
  877.     or.l    d3,d5
  878.     tst.w    d7
  879.     bpl    L00083a
  880.     add.w    #$0010,d7
  881.     move.w    d5,(a6)+
  882.     subq.l    #2,d6
  883.     bne    L000836
  884.     bsr    L0008fc
  885. L000836:
  886.     clr.w    d5
  887.     swap.w    d5
  888. L00083a:
  889.     moveq.l    #$00,d3
  890.     move.w    (sp)+,d3
  891.     sub.w    #$0010,d7
  892.     rol.l    d7,d3
  893.     or.l    d3,d5
  894.     tst.w    d7
  895.     bpl    L00085c
  896.     add.w    #$0010,d7
  897.     move.w    d5,(a6)+
  898.     subq.l    #2,d6
  899.     bne    L000858
  900.     bsr    L0008fc
  901. L000858:
  902.     clr.w    d5
  903.     swap.w    d5
  904. L00085c:
  905.     rts
  906.  
  907. L00085e:
  908.     andi.l    #$000000ff,d0
  909.     subq.w    #8,d7
  910.     rol.l    d7,d0
  911.     or.l    d0,d5
  912.     tst.w    d7
  913.     bpl    L000880
  914.     add.w    #$0010,d7
  915.     move.w    d5,(a6)+
  916.     subq.l    #2,d6
  917.     bne    L00087c
  918.     bsr    L0008fc
  919. L00087c:
  920.     clr.w    d5
  921.     swap.w    d5
  922. L000880:
  923.     rts
  924.  
  925. L000882:
  926.     andi.l    #$0000ffff,d0
  927.     sub.w    #$0010,d7
  928.     rol.l    d7,d0
  929.     or.l    d0,d5
  930.     tst.w    d7
  931.     bpl    L0008a4
  932.     add.w    #$0010,d7
  933.     move.w    d5,(a6)+
  934.     subq.l    #2,d6
  935.     bne    L0008a0
  936.     bsr    L0008fc
  937. L0008a0:
  938.     clr.w    d5
  939.     swap.w    d5
  940. L0008a4:
  941.     rts
  942.  
  943. L0008a6:
  944.     move.l    a0,-(sp)
  945.     movea.l    $0008(sp),a0
  946.     bra    L0008c8
  947. L0008ae:
  948.     subq.w    #8,d7
  949.     rol.l    d7,d0
  950.     or.l    d0,d5
  951.     tst.w    d7
  952.     bpl    L0008c8
  953.     add.w    #$0010,d7
  954.     move.w    d5,(a6)+
  955.     subq.l    #2,d6
  956.     bne    L0008c4
  957.     bsr    L0008fc
  958. L0008c4:
  959.     clr.w    d5
  960.     swap.w    d5
  961. L0008c8:
  962.     moveq.l    #$00,d0
  963.     move.b    (a0)+,d0
  964.     bne    L0008ae
  965.     movea.l    (sp)+,a0
  966.     moveq.l    #$00,d0
  967.     rts
  968.  
  969. L0008d4:
  970.     moveq.l    #$00,d0
  971.     sub.w    #$0010,d7
  972.     rol.l    d7,d0
  973.     or.l    d0,d5
  974.     tst.w    d7
  975.     bpl    L0008f2
  976.     add.w    #$0010,d7
  977.     move.w    d5,(a6)+
  978.     subq.l    #2,d6
  979.     bne    L0008ee
  980.     bsr    L0008fc
  981. L0008ee:
  982.     clr.w    d5
  983.     swap.w    d5
  984. L0008f2:
  985.     tst.b    $083d(a5)
  986.     bne    L0008fa
  987.     bsr    L0008fc
  988. L0008fa:
  989.     rts
  990.  
  991. L0008fc:
  992.     tst.b    $083d(a5)
  993.     bne    L000936
  994.     move.l    d0,-(sp)
  995.     movea.l    $0806(a5),a6
  996.     move.l    $081a(a5),-(sp)
  997.     sub.l    d6,(sp)
  998.     move.l    a6,-(sp)
  999.     move.w    $0822(a5),-(sp)
  1000.     DOS    _WRITE
  1001.     addq.w    #6,sp
  1002.     cmp.l    (sp)+,d0
  1003.     bne    L000936
  1004.     move.l    $081a(a5),d6
  1005.     move.l    (sp)+,d0
  1006.     rts
  1007.  
  1008. L000924:
  1009.     moveq.l    #$86,d0
  1010.     bra    L000148
  1011. L00092a:
  1012.     moveq.l    #$87,d0
  1013.     bra    L000148
  1014. L000930:
  1015.     moveq.l    #$94,d0
  1016.     bra    L000148
  1017. L000936:
  1018.     moveq.l    #$e9,d0
  1019.     bra    L000148
  1020. L00093c:
  1021.     .dc.b    'PIC',$00
  1022.  
  1023.  
  1024. L000940:
  1025.     .dc.b    '$Id: picload.ap,v 2.0.0.4 1995/06/01 01:54:01 GORRY Exp GOR'
  1026.     .dc.b    'RY $',$00
  1027. _PICLOAD_::
  1028.     clr.w    -(sp)
  1029.     bra    L000986
  1030. _M_PICLOAD_::
  1031.     st.b    -(sp)
  1032. L000986:
  1033.     movem.l    d1-d7/a0-a6,-(sp)
  1034.     lea.l    $003e(sp),a0
  1035.     link.w    a5,#-10326
  1036.     lea.l    -$2856(a5),a5
  1037.     lea.l    L000af0(pc),a1
  1038.     move.l    a5,(a1)
  1039.     clr.l    -(sp)
  1040.     DOS    _SUPER
  1041.     move.l    d0,(sp)
  1042.     bsr    L0009be
  1043.     move.l    d0,d1
  1044.     tst.l    (sp)
  1045.     bmi    L0009ac
  1046.     DOS    _SUPER
  1047. L0009ac:
  1048.     addq.w    #4,sp
  1049.     move.l    d1,d0
  1050.     lea.l    $2856(a5),a5
  1051.     unlk    a5
  1052.     movem.l    (sp)+,d1-d7/a0-a6
  1053.     addq.w    #2,sp
  1054.     rts
  1055.  
  1056. L0009be:
  1057.     move.l    sp,$0812(a5)
  1058.     move.w    -$0006(a0),d0
  1059.     move.l    (a0)+,$0802(a5)
  1060.     move.l    (a0)+,$080a(a5)
  1061.     move.l    (a0)+,$0820(a5)
  1062.     move.l    (a0)+,$0824(a5)
  1063.     move.l    (a0)+,$0806(a5)
  1064.     move.l    (a0)+,$0816(a5)
  1065.     move.l    (a0)+,$081a(a5)
  1066.     tst.w    d0
  1067.     sne.b    $083b(a5)
  1068.     tst.b    $083b(a5)
  1069.     bne    L000a02
  1070.     clr.w    -(sp)
  1071.     move.l    $080a(a5),-(sp)
  1072.     DOS    _OPEN
  1073.     addq.w    #6,sp
  1074.     tst.l    d0
  1075.     bmi    L000aa2
  1076.     move.w    d0,$081e(a5)
  1077. L000a02:
  1078.     tst.b    $083b(a5)
  1079.     bne    L000a14
  1080.     cmpi.l    #$00000080,$0816(a5)
  1081.     bcs    L001496
  1082. L000a14:
  1083.     moveq.l    #$00,d6
  1084.     moveq.l    #$00,d7
  1085.     clr.b    $083a(a5)
  1086.     tst.b    $083b(a5)
  1087.     beq    L000a32
  1088.     movea.l    $0806(a5),a6
  1089.     move.l    $0816(a5),d6
  1090.     addq.l    #1,d6
  1091.     andi.l    #$ffffffff,d6
  1092. L000a32:
  1093.     bsr    L00133c
  1094.     cmpi.b    #$50,d0            ;'P'
  1095.     bne    L00149c
  1096.     bsr    L00133c
  1097.     cmpi.b    #$49,d0            ;'I'
  1098.     bne    L00149c
  1099.     bsr    L00133c
  1100.     cmpi.b    #$43,d0            ;'C'
  1101.     bne    L00149c
  1102.     bsr    L000af4
  1103. L000a5a:
  1104.     bsr    L00133c
  1105.     tst.b    d0
  1106.     bne    L000a5a
  1107.     bsr    L001356
  1108.     move.w    d0,$0838(a5)
  1109.     bsr    L001356
  1110.     cmpi.w    #$000f,d0
  1111.     bne    L00149c
  1112.     bsr    L001356
  1113.     move.w    d0,$0828(a5)
  1114.     bsr    L001356
  1115.     move.w    d0,$082a(a5)
  1116.     bsr    L000d08
  1117.     moveq.l    #$00,d0
  1118.     tst.l    $081a(a5)
  1119.     bmi    L000aa2
  1120.     bsr    L000e42
  1121.     bsr    L0010cc
  1122.     bsr    L0010f8
  1123.     bsr    L0013ac
  1124. L000aa2:
  1125.     movea.l    L000af0(pc),a5
  1126.     movea.l    $0812(a5),sp
  1127.     move.l    d0,-(sp)
  1128.     movea.l    $0806(a5),a0
  1129.     tst.b    $083b(a5)
  1130.     beq    L000aba
  1131.     movea.l    $080a(a5),a0
  1132. L000aba:
  1133.     moveq.l    #$00,d0
  1134.     move.l    $0820(a5),(a0)
  1135.     move.l    $0824(a5),$0004(a0)
  1136.     move.w    $0828(a5),d0
  1137.     move.l    d0,$0008(a0)
  1138.     move.w    $082a(a5),d0
  1139.     move.l    d0,$000c(a0)
  1140.     move.l    #$00008000,$0010(a0)
  1141.     tst.b    $083b(a5)
  1142.     bne    L000aec
  1143.     move.w    $081e(a5),-(sp)
  1144.     DOS    _CLOSE
  1145.     addq.w    #2,sp
  1146. L000aec:
  1147.     move.l    (sp)+,d0
  1148.     rts
  1149.  
  1150. L000af0:
  1151.     .dc.l    $00000000
  1152. L000af4:
  1153.     movem.l    d1-d3/a0-a2,-(sp)
  1154.     clr.b    $0842(a5)
  1155.     clr.b    $2842(a5)
  1156.     clr.b    $083c(a5)
  1157.     clr.b    $083d(a5)
  1158.     clr.b    $083e(a5)
  1159.     clr.b    $083f(a5)
  1160.     clr.b    $0840(a5)
  1161.     moveq.l    #$00,d0
  1162.     bsr    L00133c
  1163.     cmpi.b    #$1a,d0
  1164.     beq    L000c26
  1165.     move.l    $081a(a5),d1
  1166.     btst.l    #$03,d1
  1167.     bne    L000c26
  1168.     cmpi.b    #$2f,d0            ;'/'
  1169.     bne    L000c26
  1170. L000b36:
  1171.     bsr    L00133c
  1172.     cmp.b    #$3a,d0            ;':'
  1173.     bne    L000b4a
  1174.     bsr    L00133c
  1175.     bra    L000c26
  1176. L000b48:
  1177.     bra    L000b50
  1178. L000b4a:
  1179.     cmp.b    #$4d,d0            ;'M'
  1180.     bne    L000b84
  1181. L000b50:
  1182.     bsr    L00133c
  1183.     cmp.b    #$4b,d0            ;'K'
  1184.     bne    L000b60
  1185.     st.b    $083c(a5)
  1186.     bra    L000b80
  1187. L000b60:
  1188.     cmp.b    #$59,d0            ;'Y'
  1189.     bne    L000b6c
  1190.     st.b    $083c(a5)
  1191.     bra    L000b80
  1192. L000b6c:
  1193.     cmp.b    #$48,d0            ;'H'
  1194.     bne    L000b80
  1195.     bsr    L00133c
  1196.     cmpi.b    #$59,d0            ;'Y'
  1197.     bne    L000b80
  1198.     st.b    $083e(a5)
  1199. L000b80:
  1200.     bra    L000c10
  1201. L000b84:
  1202.     cmp.b    #$58,d0            ;'X'
  1203.     bne    L000be8
  1204.     bsr    L00133c
  1205.     cmp.b    #$53,d0            ;'S'
  1206.     bne    L000ba4
  1207.     bsr    L00133c
  1208.     cmpi.b    #$53,d0            ;'S'
  1209.     bne    L000ba2
  1210.     st.b    $083f(a5)
  1211. L000ba2:
  1212.     bra    L000be6
  1213. L000ba4:
  1214.     cmp.b    #$46,d0            ;'F'
  1215.     bne    L000bba
  1216.     bsr    L00133c
  1217.     cmpi.b    #$4c,d0            ;'L'
  1218.     bne    L000bb8
  1219.     st.b    $0840(a5)
  1220. L000bb8:
  1221.     bra    L000be6
  1222. L000bba:
  1223.     cmp.b    #$59,d0            ;'Y'
  1224.     bne    L000be6
  1225.     bsr    L000cda
  1226.     moveq.l    #$00,d1
  1227.     divu.w    #$2710,d0
  1228.     tst.l    $0820(a5)
  1229.     bpl    L000bd6
  1230.     move.w    d0,d1
  1231.     move.l    d1,$0820(a5)
  1232. L000bd6:
  1233.     swap.w    d0
  1234.     tst.l    $0824(a5)
  1235.     bpl    L000be4
  1236.     move.w    d0,d1
  1237.     move.l    d1,$0824(a5)
  1238. L000be4:
  1239.     moveq.l    #$2f,d0
  1240. L000be6:
  1241.     bra    L000c10
  1242. L000be8:
  1243.     cmp.b    #$41,d0            ;'A'
  1244.     bne    L000c10
  1245.     bsr    L00133c
  1246.     cmpi.b    #$55,d0            ;'U'
  1247.     bne    L000c10
  1248.     lea.l    $2842(a5),a0
  1249.     moveq.l    #$10,d1
  1250. L000bfe:
  1251.     bsr    L00133c
  1252.     cmpi.b    #$2f,d0            ;'/'
  1253.     beq    L000c0e
  1254.     move.b    d0,(a0)+
  1255.     dbra    d1,L000bfe
  1256. L000c0e:
  1257.     clr.b    (a0)
  1258. L000c10:
  1259.     cmpi.b    #$2f,d0            ;'/'
  1260.     beq    L000c22
  1261.     cmpi.b    #$1a,d0
  1262.     beq    L000c26
  1263.     bsr    L00133c
  1264.     bra    L000c10
  1265. L000c22:
  1266.     bra    L000b36
  1267. L000c26:
  1268.     lea.l    $0842(a5),a2
  1269.     move.l    #$00001ffc,d3
  1270.     move.l    d0,-(sp)
  1271.     move.l    $081a(a5),d0
  1272.     btst.l    #$04,d0
  1273.     bne    L000ca6
  1274.     movea.l    $080a(a5),a0
  1275.     movea.l    a0,a1
  1276. L000c42:
  1277.     move.b    (a0)+,d0
  1278.     beq    L000c5c
  1279.     cmpi.b    #$3a,d0            ;':'
  1280.     beq    L000c58
  1281.     cmpi.b    #$2f,d0            ;'/'
  1282.     beq    L000c58
  1283.     cmpi.b    #$5c,d0            ;'\'
  1284.     bne    L000c5a
  1285. L000c58:
  1286.     movea.l    a0,a1
  1287. L000c5a:
  1288.     bra    L000c42
  1289. L000c5c:
  1290.     moveq.l    #$17,d2
  1291. L000c5e:
  1292.     moveq.l    #$00,d0
  1293.     move.b    (a1)+,d0
  1294.     beq    L000c6c
  1295.     move.b    d0,(a2)+
  1296.     subq.w    #1,d2
  1297.     subq.w    #1,d3
  1298.     bra    L000c5e
  1299. L000c6c:
  1300.     tst.w    d2
  1301.     bmi    L000c7a
  1302. L000c70:
  1303.     move.b    #$20,(a2)+        ;' '
  1304.     subq.w    #1,d3
  1305.     dbra    d2,L000c70
  1306. L000c7a:
  1307.     move.b    #$3a,(a2)+        ;':'
  1308.     move.b    #$20,(a2)+        ;' '
  1309.     subq.w    #2,d3
  1310.     lea.l    $2842(a5),a0
  1311.     moveq.l    #$11,d2
  1312. L000c8a:
  1313.     moveq.l    #$00,d0
  1314.     move.b    (a0)+,d0
  1315.     beq    L000c98
  1316.     move.b    d0,(a2)+
  1317.     subq.w    #1,d2
  1318.     subq.w    #1,d3
  1319.     bra    L000c8a
  1320. L000c98:
  1321.     tst.w    d2
  1322.     bmi    L000ca6
  1323. L000c9c:
  1324.     move.b    #$20,(a2)+        ;' '
  1325.     subq.w    #1,d3
  1326.     dbra    d2,L000c9c
  1327. L000ca6:
  1328.     move.l    (sp)+,d0
  1329.     moveq.l    #$00,d2
  1330.     cmpi.b    #$1a,d0
  1331.     beq    L000cc6
  1332. L000cb0:
  1333.     move.b    d0,(a2)+
  1334.     cmpi.b    #$0a,d0
  1335.     seq.b    d2
  1336.     subq.w    #1,d3
  1337.     bmi    L000cc6
  1338.     bsr    L00133c
  1339.     cmpi.b    #$1a,d0
  1340.     bne    L000cb0
  1341. L000cc6:
  1342.     tst.b    d2
  1343.     bne    L000cd2
  1344.     move.b    #$0d,(a2)+
  1345.     move.b    #$0a,(a2)+
  1346. L000cd2:
  1347.     clr.b    (a2)
  1348.     movem.l    (sp)+,d1-d3/a0-a2
  1349.     rts
  1350.  
  1351. L000cda:
  1352.     movem.l    d1-d2,-(sp)
  1353.     moveq.l    #$00,d2
  1354.     moveq.l    #$00,d1
  1355. L000ce2:
  1356.     bsr    L00133c
  1357.     subi.b    #$30,d0            ;'0'
  1358.     bmi    L000d00
  1359.     cmpi.b    #$0a,d0
  1360.     bcc    L000d00
  1361.     move.b    d0,d1
  1362.     add.l    d2,d2
  1363.     move.l    d2,d0
  1364.     lsl.l    #2,d2
  1365.     add.l    d0,d2
  1366.     add.l    d1,d2
  1367.     bra    L000ce2
  1368. L000d00:
  1369.     move.l    d2,d0
  1370.     movem.l    (sp)+,d1-d2
  1371.     rts
  1372.  
  1373. L000d08:
  1374.     move.l    d7,-(sp)
  1375.     move.w    $0838(a5),d0
  1376.     beq    L000d20
  1377.     cmpi.w    #$0052,d0        ;'R'
  1378.     beq    L000d20
  1379.     cmpi.w    #$00c2,d0
  1380.     beq    L000d20
  1381.     bra    L00149c
  1382. L000d20:
  1383.     move.l    $0820(a5),d0
  1384.     bpl    L000d2c
  1385.     moveq.l    #$00,d0
  1386.     move.l    d0,$0820(a5)
  1387. L000d2c:
  1388.     move.l    $0824(a5),d0
  1389.     bpl    L000d38
  1390.     moveq.l    #$00,d0
  1391.     move.l    d0,$0824(a5)
  1392. L000d38:
  1393.     move.w    #$0400,$0832(a5)
  1394.     move.w    #$0200,$082e(a5)
  1395.     move.w    #$0200,$0830(a5)
  1396.     move.w    #$010c,$0836(a5)
  1397.     move.w    #$0003,$0834(a5)
  1398.     cmpi.w    #$0052,$0838(a5)    ;'R'
  1399.     beq    L000d66
  1400.     cmpi.w    #$00c2,$0838(a5)
  1401.     bne    L000d6c
  1402. L000d66:
  1403.     move.w    #$0110,$0836(a5)
  1404. L000d6c:
  1405.     tst.b    $083f(a5)
  1406.     beq    L000d78
  1407.     move.w    #$0110,$0836(a5)
  1408. L000d78:
  1409.     tst.b    $0840(a5)
  1410.     beq    L000d82
  1411.     addq.w    #1,$0836(a5)
  1412. L000d82:
  1413.     move.l    $081a(a5),d7
  1414.     btst.l    #$0f,d7
  1415.     beq    L000da2
  1416. *    move.w    $0828(a5),d0
  1417. *    addq.w    #7,d0
  1418. *    andi.w    #$fff8,d0
  1419. *    add.w    d0,d0
  1420. *    cmp.w    $0832(a5),d0
  1421. *    ble    L000da2
  1422. *    move.w    d0,$0832(a5)
  1423.     move.l    _DataX,d0        ******TNB
  1424.     add.l    d0,d0
  1425.     move.w    d0,$0832(a5)        ******TNB
  1426.  
  1427. L000da2:
  1428.     move.l    $0820(a5),d0
  1429.     btst.l    #$0f,d7
  1430.     bne    L000db4
  1431.     cmp.w    $082e(a5),d0
  1432.     bcc    L0014a2
  1433. L000db4:
  1434.     move.w    $0828(a5),d1
  1435.     tst.b    $083c(a5)
  1436.     beq    L000dc0
  1437.     add.w    d1,d1
  1438. L000dc0:
  1439.     add.w    d1,d0
  1440.     btst.l    #$0f,d7
  1441.     bne    L000dd0
  1442.     cmp.w    $082e(a5),d0
  1443.     bhi    L0014a2
  1444. L000dd0:
  1445.     move.l    $0824(a5),d0
  1446.     btst.l    #$0f,d7
  1447.     bne    L000de2
  1448.     cmp.w    $0830(a5),d0
  1449.     bcc    L0014a2
  1450. L000de2:
  1451.     move.w    $082a(a5),d1
  1452.     tst.b    $083c(a5)
  1453.     bne    L000df2
  1454.     tst.b    $083d(a5)
  1455.     beq    L000df4
  1456. L000df2:
  1457.     add.w    d1,d1
  1458. L000df4:
  1459.     tst.b    $083e(a5)
  1460.     beq    L000e04
  1461.     mulu.w    #$0200,d1
  1462.     divu.w    #$01a8,d1
  1463.     ext.l    d1
  1464. L000e04:
  1465.     add.w    d1,d0
  1466.     btst.l    #$0f,d7
  1467.     bne    L000e14
  1468.     cmp.w    $0830(a5),d0
  1469.     bhi    L0014a2
  1470. L000e14:
  1471.     move.l    $0824(a5),d0
  1472.     mulu.w    $0832(a5),d0
  1473.     move.l    $0820(a5),d1
  1474.     ext.l    d1
  1475.     add.l    d1,d0
  1476.     add.l    d1,d0
  1477.     add.l    $0802(a5),d0
  1478.     move.l    d0,$080e(a5)
  1479.     move.w    $0828(a5),d0
  1480.     add.w    d0,d0
  1481.     move.w    $0832(a5),d1
  1482.     sub.w    d0,d1
  1483.     move.w    d1,$082c(a5)
  1484.     move.l    (sp)+,d7
  1485.     rts
  1486.  
  1487. L000e42:
  1488.     movem.l    d0-d7/a0-a6,-(sp)
  1489.     move.l    $081a(a5),d7
  1490.     btst.l    #$0f,d7
  1491.     beq    L000e5a
  1492.     move.w    $0834(a5),d0
  1493.     move.b    d0,$00e80028
  1494. L000e5a:
  1495.     btst.l    #$00,d7
  1496.     bne    L000efc
  1497.     move.w    #$0002,-(sp)
  1498.     move.w    #$000a,-(sp)
  1499.     DOS    _CONCTRL
  1500.     addq.w    #4,sp
  1501.     lea.l    $00e82000,a0
  1502.     move.w    #$007f,d0
  1503.     move.w    #$0001,d1
  1504. L000e7c:
  1505.     move.w    d1,(a0)+
  1506.     move.w    d1,(a0)+
  1507.     addi.w    #$0202,d1
  1508.     dbra    d0,L000e7c
  1509.     moveq.l    #$ff,d1
  1510.     IOCS    _B_LOCATE
  1511.     move.l    d0,-(sp)
  1512.     moveq.l    #$ff,d1
  1513.     moveq.l    #$ff,d2
  1514.     IOCS    _B_CONSOL
  1515.     movem.w    d1-d2,-(sp)
  1516.     move.w    $00e82600,-(sp)
  1517.     move.w    $0836(a5),d1
  1518.     IOCS    _CRTMOD
  1519.     bclr.b    #$01,$00e8e007
  1520.     move.w    (sp)+,$00e82600
  1521.     moveq.l    #$ff,d1
  1522.     moveq.l    #$ff,d2
  1523.     IOCS    _B_CONSOL
  1524.     move.w    (sp)+,d1
  1525.     move.w    (sp)+,d2
  1526.     IOCS    _B_CONSOL
  1527.     movem.w    (sp)+,d1-d2
  1528.     IOCS    _B_LOCATE
  1529.     move.w    $0834(a5),d0
  1530.     move.b    d0,$00e80028
  1531.     move.b    d0,$00e82401
  1532.     ori.b    #$0f,$00e82601
  1533.     cmpi.b    #$04,d0
  1534.     bne    L000ef6
  1535.     ori.b    #$10,$00e82601
  1536. L000ef6:
  1537.     clr.b    $00e82600
  1538. L000efc:
  1539.     btst.l    #$02,d7
  1540.     bne    L000f0a
  1541.     pea.l    $0842(a5)
  1542.     DOS    _PRINT
  1543.     addq.w    #4,sp
  1544. L000f0a:
  1545.     moveq.l    #$00,d1
  1546.     move.l    d1,d2
  1547.     move.l    d1,d3
  1548.     move.l    d1,d4
  1549.     move.l    d1,d5
  1550.     move.l    d1,d6
  1551.     movea.l    d1,a1
  1552.     movea.l    d1,a2
  1553.     movea.l    d1,a3
  1554.     movea.l    d1,a4
  1555.     movea.l    d1,a6
  1556.     movea.l    $0802(a5),a0
  1557.     btst.l    #$0f,d7
  1558.     beq    L000f88
  1559.     move.l    d6,d7
  1560.     move.w    $0830(a5),d0
  1561.     cmp.w    $082a(a5),d0
  1562.     bge    L000f3a
  1563.     move.w    $082a(a5),d0
  1564. L000f3a:
  1565.     mulu.w    $0832(a5),d0
  1566.     adda.l    d0,a0
  1567.     divu.w    #$0200,d0
  1568.     subq.w    #1,d0
  1569.     bcs    L000f78
  1570. L000f48:
  1571.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1572.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1573.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1574.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1575.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1576.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1577.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1578.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1579.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1580.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1581.     movem.l    d1-d7/a1,-(a0)
  1582.     dbra    d0,L000f48
  1583. L000f78:
  1584.     swap.w    d0
  1585.     subq.w    #1,d0
  1586.     bcs    L000f84
  1587. L000f7e:
  1588.     move.b    d1,-(a0)
  1589.     dbra    d0,L000f7e
  1590. L000f84:
  1591.     bra    L0010c6
  1592. L000f88:
  1593.     btst.l    #$01,d7
  1594.     bne    L000fd2
  1595.     move.l    d6,d7
  1596.     move.w    $0830(a5),d0
  1597.     mulu.w    $0832(a5),d0
  1598.     adda.l    d0,a0
  1599.     move.w    #$03ff,d0
  1600. L000f9e:
  1601.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1602.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1603.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1604.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1605.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1606.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1607.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1608.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1609.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1610.     movem.l    d1-d7/a1-a4/a6,-(a0)
  1611.     movem.l    d1-d7/a1,-(a0)
  1612.     dbra    d0,L000f9e
  1613.     bra    L0010c6
  1614. L000fd2:
  1615.     move.l    $0820(a5),d0
  1616.     move.w    $0828(a5),d2
  1617.     add.w    d2,d0
  1618.     add.w    d0,d0
  1619.     move.l    $0824(a5),d1
  1620.     move.w    $082a(a5),d2
  1621.     add.w    d2,d1
  1622.     subq.w    #1,d1
  1623.     mulu.w    $0832(a5),d1
  1624.     add.l    d0,d1
  1625.     adda.l    d1,a0
  1626.     move.w    $0828(a5),d0
  1627.     andi.w    #$000f,d0
  1628.     add.w    d0,d0
  1629.     eori.w    #$001e,d0
  1630.     lea.l    L00101e(pc,d0.w),a1
  1631.     move.w    $0828(a5),d0
  1632.     lsr.w    #4,d0
  1633.     moveq.l    #$20,d1
  1634.     sub.w    d0,d1
  1635.     lsl.w    #2,d1
  1636.     lea.l    L00103e(pc,d1.w),a2
  1637.     moveq.l    #$00,d2
  1638.     move.w    $082a(a5),d0
  1639.     subq.w    #1,d0
  1640. L00101c:
  1641.     jmp    (a1)
  1642.  
  1643. L00101e:
  1644.     move.w    d2,-(a0)
  1645.     move.w    d2,-(a0)
  1646.     move.w    d2,-(a0)
  1647.     move.w    d2,-(a0)
  1648.     move.w    d2,-(a0)
  1649.     move.w    d2,-(a0)
  1650.     move.w    d2,-(a0)
  1651.     move.w    d2,-(a0)
  1652.     move.w    d2,-(a0)
  1653.     move.w    d2,-(a0)
  1654.     move.w    d2,-(a0)
  1655.     move.w    d2,-(a0)
  1656.     move.w    d2,-(a0)
  1657.     move.w    d2,-(a0)
  1658.     move.w    d2,-(a0)
  1659.     jmp    (a2)
  1660.  
  1661. L00103e:
  1662.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1663.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1664.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1665.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1666.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1667.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1668.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1669.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1670.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1671.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1672.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1673.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1674.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1675.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1676.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1677.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1678.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1679.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1680.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1681.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1682.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1683.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1684.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1685.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1686.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1687.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1688.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1689.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1690.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1691.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1692.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1693.     movem.l    d2-d6/a3-a4/a6,-(a0)
  1694.     suba.w    $082c(a5),a0
  1695.     dbra    d0,L00101c
  1696. L0010c6:
  1697.     movem.l    (sp)+,d0-d7/a0-a6
  1698.     rts
  1699.  
  1700. L0010cc:
  1701.     movea.l    a5,a0
  1702.     moveq.l    #$00,d0
  1703.     moveq.l    #$f8,d1
  1704.     moveq.l    #$08,d2
  1705.     moveq.l    #$00,d3
  1706.     moveq.l    #$7f,d4
  1707. L0010d8:
  1708.     move.w    d0,(a0)+
  1709.     move.w    d1,(a0)+
  1710.     move.w    d2,(a0)+
  1711.     move.w    d3,(a0)+
  1712.     addq.w    #8,d1
  1713.     addq.w    #8,d2
  1714.     dbra    d4,L0010d8
  1715.     move.w    #$03f8,$0002(a5)
  1716.     move.w    d3,-$0004(a0)
  1717.     move.w    d3,$0800(a5)
  1718.     rts
  1719.  
  1720. L0010f8:
  1721.     movea.l    $080e(a5),a4
  1722.     moveq.l    #$00,d2
  1723.     bsr    L0012ba
  1724.     move.w    $082a(a5),d0
  1725.     subq.w    #1,d0
  1726. L001108:
  1727.     move.w    d0,-(sp)
  1728.     moveq.l    #$00,d4
  1729.     move.w    $0828(a5),d4
  1730. L001110:
  1731.     cmp.l    d4,d3
  1732.     blt    L001120
  1733.     sub.l    d4,d3
  1734.     move.w    d4,d0
  1735.     bsr    L00125c
  1736.     bra    L00124e
  1737. L001120:
  1738.     sub.w    d3,d4
  1739.     tst.w    d3
  1740.     beq    L00112c
  1741.     move.w    d3,d0
  1742.     bsr    L00125c
  1743. L00112c:
  1744.     dbra    d7,L00113c
  1745.     moveq.l    #$0f,d7
  1746.     subq.l    #2,d6
  1747.     bcc    L00113a
  1748.     bsr    L001372
  1749. L00113a:
  1750.     move.w    (a6)+,d5
  1751. L00113c:
  1752.     btst.l    d7,d5
  1753.     beq    L001198
  1754.     subq.w    #7,d7
  1755.     bcc    L001154
  1756.     add.w    #$0010,d7
  1757.     subq.l    #2,d6
  1758.     bcc    L001150
  1759.     bsr    L001372
  1760. L001150:
  1761.     swap.w    d5
  1762.     move.w    (a6)+,d5
  1763. L001154:
  1764.     move.l    d5,d0
  1765.     lsr.l    d7,d0
  1766.     andi.w    #$007f,d0
  1767.     lsl.w    #3,d0
  1768.     lea.l    $00(a5,d0.w),a0
  1769.     cmp.w    $0800(a5),d0
  1770.     beq    L001194
  1771.     move.w    $0002(a0),d1
  1772.     move.w    $0004(a0),d2
  1773.     move.w    d1,$02(a5,d2.w)
  1774.     move.w    d2,$04(a5,d1.w)
  1775.     move.w    $0800(a5),d1
  1776.     move.w    $04(a5,d1.w),d2
  1777.     move.w    d1,$0002(a0)
  1778.     move.w    d2,$0004(a0)
  1779.     move.w    d0,$02(a5,d2.w)
  1780.     move.w    d0,$04(a5,d1.w)
  1781.     move.w    d0,$0800(a5)
  1782. L001194:
  1783.     move.w    (a0),d2
  1784.     bra    L0011c4
  1785. L001198:
  1786.     sub.w    #$000f,d7
  1787.     bcc    L0011ae
  1788.     add.w    #$0010,d7
  1789.     subq.l    #2,d6
  1790.     bcc    L0011aa
  1791.     bsr    L001372
  1792. L0011aa:
  1793.     swap.w    d5
  1794.     move.w    (a6)+,d5
  1795. L0011ae:
  1796.     move.l    d5,d2
  1797.     lsr.l    d7,d2
  1798.     add.w    d2,d2
  1799.     move.w    $0800(a5),d0
  1800.     move.w    $04(a5,d0.w),d0
  1801.     move.w    d0,$0800(a5)
  1802.     move.w    d2,$00(a5,d0.w)
  1803. L0011c4:
  1804.     movea.l    a4,a3
  1805.     move.w    d2,(a4)+
  1806.     subq.w    #1,d4
  1807.     dbra    d7,L0011da
  1808.     moveq.l    #$0f,d7
  1809.     subq.l    #2,d6
  1810.     bcc    L0011d8
  1811.     bsr    L001372
  1812. L0011d8:
  1813.     move.w    (a6)+,d5
  1814. L0011da:
  1815.     btst.l    d7,d5
  1816.     beq    L001246
  1817.     addq.w    #1,d2
  1818.     movea.w    $0832(a5),a0
  1819. L0011e4:
  1820.     subq.w    #2,d7
  1821.     bcc    L0011f8
  1822.     add.w    #$0010,d7
  1823.     subq.l    #2,d6
  1824.     bcc    L0011f4
  1825.     bsr    L001372
  1826. L0011f4:
  1827.     swap.w    d5
  1828.     move.w    (a6)+,d5
  1829. L0011f8:
  1830.     move.l    d5,d0
  1831.     lsr.l    d7,d0
  1832.     andi.w    #$0003,d0
  1833.     beq    L00120e
  1834.     add.w    d0,d0
  1835.     subq.w    #4,d0
  1836.     adda.w    a0,a3
  1837.     adda.w    d0,a3
  1838.     move.w    d2,(a3)
  1839.     bra    L0011e4
  1840. L00120e:
  1841.     dbra    d7,L00121e
  1842.     moveq.l    #$0f,d7
  1843.     subq.l    #2,d6
  1844.     bcc    L00121c
  1845.     bsr    L001372
  1846. L00121c:
  1847.     move.w    (a6)+,d5
  1848. L00121e:
  1849.     btst.l    d7,d5
  1850.     beq    L001244
  1851.     adda.w    a0,a3
  1852.     dbra    d7,L001234
  1853.     moveq.l    #$0f,d7
  1854.     subq.l    #2,d6
  1855.     bcc    L001232
  1856.     bsr    L001372
  1857. L001232:
  1858.     move.w    (a6)+,d5
  1859. L001234:
  1860.     btst.l    d7,d5
  1861.     bne    L00123e
  1862.     subq.w    #4,a3
  1863.     move.w    d2,(a3)
  1864.     bra    L0011e4
  1865. L00123e:
  1866.     addq.w    #4,a3
  1867.     move.w    d2,(a3)
  1868.     bra    L0011e4
  1869. L001244:
  1870.     subq.w    #1,d2
  1871. L001246:
  1872.     bsr    L0012ba
  1873.     tst.w    d4
  1874.     bne    L001110
  1875. L00124e:
  1876.     adda.w    $082c(a5),a4
  1877.     move.w    (sp)+,d0
  1878.     dbra    d0,L001108
  1879.     moveq.l    #$00,d0
  1880.     rts
  1881.  
  1882. L00125c:
  1883.     subq.w    #2,d0
  1884.     bcs    L0012a8
  1885.     lsr.w    #1,d0
  1886.     bcc    L001270
  1887.     move.w    (a4),d1
  1888.     beq    L00126e
  1889.     move.w    d1,d2
  1890.     andi.w    #$fffe,d2
  1891. L00126e:
  1892.     move.w    d2,(a4)+
  1893. L001270:
  1894.     move.w    d2,d1
  1895.     swap.w    d2
  1896.     move.w    d1,d2
  1897.     bra    L00127a
  1898. L001278:
  1899.     move.l    d2,(a4)+
  1900. L00127a:
  1901.     move.l    (a4),d1
  1902.     dbne    d0,L001278
  1903.     swap.w    d1
  1904.     tst.w    d1
  1905.     beq    L00128c
  1906.     move.w    d1,d2
  1907.     andi.w    #$fffe,d2
  1908. L00128c:
  1909.     move.w    d2,(a4)+
  1910.     swap.w    d1
  1911.     tst.w    d1
  1912.     beq    L00129a
  1913.     move.w    d1,d2
  1914.     andi.w    #$fffe,d2
  1915. L00129a:
  1916.     move.w    d2,(a4)+
  1917.     move.w    d2,d1
  1918.     swap.w    d2
  1919.     move.w    d1,d2
  1920.     subq.w    #1,d0
  1921.     bpl    L00127a
  1922.     rts
  1923.  
  1924. L0012a8:
  1925.     addq.w    #1,d0
  1926.     bne    L0012b8
  1927.     move.w    (a4),d1
  1928.     beq    L0012b6
  1929.     move.w    d1,d2
  1930.     andi.w    #$fffe,d2
  1931. L0012b6:
  1932.     move.w    d2,(a4)+
  1933. L0012b8:
  1934.     rts
  1935.  
  1936. L0012ba:
  1937.     moveq.l    #$00,d0
  1938. L0012bc:
  1939.     addq.w    #1,d0
  1940.     dbra    d7,L0012ce
  1941.     moveq.l    #$0f,d7
  1942.     subq.l    #2,d6
  1943.     bcc    L0012cc
  1944.     bsr    L001372
  1945. L0012cc:
  1946.     move.w    (a6)+,d5
  1947. L0012ce:
  1948.     btst.l    d7,d5
  1949.     bne    L0012bc
  1950.     moveq.l    #$01,d3
  1951.     lsl.l    d0,d3
  1952.     subq.l    #1,d3
  1953.     cmpi.w    #$0011,d0
  1954.     bcc    L0012fe
  1955.     sub.w    d0,d7
  1956.     bcc    L0012f2
  1957.     add.w    #$0010,d7
  1958.     subq.l    #2,d6
  1959.     bcc    L0012ee
  1960.     bsr    L001372
  1961. L0012ee:
  1962.     swap.w    d5
  1963.     move.w    (a6)+,d5
  1964. L0012f2:
  1965.     move.l    d5,d1
  1966.     lsr.l    d7,d1
  1967.     and.l    d3,d1
  1968.     add.l    d1,d3
  1969.     subq.l    #1,d3
  1970.     rts
  1971.  
  1972. L0012fe:
  1973.     sub.w    #$0010,d0
  1974.     sub.w    d0,d7
  1975.     bcc    L001314
  1976.     add.w    #$0010,d7
  1977.     subq.l    #2,d6
  1978.     bcc    L001310
  1979.     bsr    L001372
  1980. L001310:
  1981.     swap.w    d5
  1982.     move.w    (a6)+,d5
  1983. L001314:
  1984.     move.l    d5,d1
  1985.     lsr.l    d7,d1
  1986.     sub.w    #$0010,d7
  1987.     bcc    L00132c
  1988.     add.w    #$0010,d7
  1989.     subq.l    #2,d6
  1990.     bcc    L001328
  1991.     bsr    L001372
  1992. L001328:
  1993.     swap.w    d5
  1994.     move.w    (a6)+,d5
  1995. L00132c:
  1996.     move.l    d5,d0
  1997.     lsr.l    d7,d0
  1998.     swap.w    d1
  1999.     move.w    d0,d1
  2000.     and.l    d3,d1
  2001.     add.l    d1,d3
  2002.     subq.l    #1,d3
  2003.     rts
  2004.  
  2005. L00133c:
  2006.     moveq.l    #$00,d0
  2007.     subq.w    #8,d7
  2008.     bcc    L001350
  2009.     add.w    #$0010,d7
  2010.     subq.l    #2,d6
  2011.     bcc    L00134c
  2012.     bsr    L001372
  2013. L00134c:
  2014.     swap.w    d5
  2015.     move.w    (a6)+,d5
  2016. L001350:
  2017.     move.l    d5,d0
  2018.     lsr.l    d7,d0
  2019.     rts
  2020.  
  2021. L001356:
  2022.     moveq.l    #$00,d0
  2023.     sub.w    #$0010,d7
  2024.     bcc    L00136c
  2025.     add.w    #$0010,d7
  2026.     subq.l    #2,d6
  2027.     bcc    L001368
  2028.     bsr    L001372
  2029. L001368:
  2030.     swap.w    d5
  2031.     move.w    (a6)+,d5
  2032. L00136c:
  2033.     move.l    d5,d0
  2034.     lsr.l    d7,d0
  2035.     rts
  2036.  
  2037. L001372:
  2038.     move.l    d0,-(sp)
  2039.     tst.b    $083a(a5)
  2040.     bne    L0014a8
  2041.     movea.l    $0806(a5),a6
  2042.     move.l    $0816(a5),-(sp)
  2043.     move.l    a6,-(sp)
  2044.     move.w    $081e(a5),-(sp)
  2045.     DOS    _READ
  2046.     addq.w    #6,sp
  2047.     cmp.l    (sp)+,d0
  2048.     beq    L0013a0
  2049.     tst.l    d0
  2050.     bmi    L0014ae
  2051.     beq    L0014a8
  2052.     st.b    $083a(a5)
  2053. L0013a0:
  2054.     addq.l    #1,d0
  2055.     andi.b    #$fe,d0
  2056.     add.l    d0,d6
  2057.     move.l    (sp)+,d0
  2058.     rts
  2059.  
  2060. L0013ac:
  2061.     movem.l    d1-d7/a0-a1,-(sp)
  2062.     move.l    $081a(a5),d0
  2063.     btst.l    #$03,d0
  2064.     bne    L00148e
  2065.     movea.l    $080e(a5),a0
  2066.     move.w    $0828(a5),d5
  2067.     move.w    d5,d0
  2068.     tst.b    $083c(a5)
  2069.     beq    L001400
  2070.     add.w    d0,d0
  2071.     adda.w    d0,a0
  2072.     movea.l    a0,a1
  2073.     adda.w    d0,a1
  2074.     move.w    $082a(a5),d0
  2075.     subq.w    #1,d0
  2076. L0013da:
  2077.     movem.l    a0-a1,-(sp)
  2078.     move.w    $0828(a5),d1
  2079.     subq.w    #1,d1
  2080. L0013e4:
  2081.     move.w    -(a0),d2
  2082.     move.w    d2,-(a1)
  2083.     move.w    d2,-(a1)
  2084.     dbra    d1,L0013e4
  2085.     movem.l    (sp)+,a0-a1
  2086.     adda.w    $0832(a5),a0
  2087.     adda.w    $0832(a5),a1
  2088.     dbra    d0,L0013da
  2089.     add.w    d5,d5
  2090. L001400:
  2091.     move.w    d5,d0
  2092.     move.l    d0,d6
  2093.     move.w    #$0080,d7
  2094.     tst.b    $083c(a5)
  2095.     bne    L00141e
  2096.     tst.b    $083d(a5)
  2097.     bne    L00141e
  2098.     move.w    #$00d4,d7
  2099.     tst.b    $083e(a5)
  2100.     beq    L00148e
  2101. L00141e:
  2102.     move.l    $0824(a5),d0
  2103.     mulu.w    #$0100,d0
  2104.     divu.w    d7,d0
  2105.     add.w    $082a(a5),d0
  2106.     subq.w    #1,d0
  2107.     mulu.w    $0832(a5),d0
  2108.     add.l    $0820(a5),d0
  2109.     add.l    $0820(a5),d0
  2110.     movea.l    d0,a0
  2111.     adda.l    $0802(a5),a0
  2112.     move.l    $0824(a5),d0
  2113.     add.w    $082a(a5),d0
  2114.     mulu.w    #$0100,d0
  2115.     divu.w    d7,d0
  2116.     subq.w    #1,d0
  2117.     move.l    d0,d1
  2118.     mulu.w    $0832(a5),d0
  2119.     add.l    $0820(a5),d0
  2120.     add.l    $0820(a5),d0
  2121.     movea.l    d0,a1
  2122.     adda.l    $0802(a5),a1
  2123.     moveq.l    #$80,d0
  2124.     sub.w    $0824(a5),d1
  2125.     subq.w    #1,d1
  2126. L00146c:
  2127.     movem.l    a0-a1,-(sp)
  2128.     move.w    d6,d2
  2129.     subq.w    #1,d2
  2130. L001474:
  2131.     move.w    (a0)+,(a1)+
  2132.     dbra    d2,L001474
  2133.     movem.l    (sp)+,a0-a1
  2134.     sub.b    d7,d0
  2135.     bcc    L001486
  2136.     suba.w    $0832(a5),a0
  2137. L001486:
  2138.     suba.w    $0832(a5),a1
  2139.     dbra    d1,L00146c
  2140. L00148e:
  2141.     movem.l    (sp)+,d1-d7/a0-a1
  2142.     moveq.l    #$00,d0
  2143.     rts
  2144.  
  2145. L001496:
  2146.     moveq.l    #$86,d0
  2147.     bra    L000aa2
  2148. L00149c:
  2149.     moveq.l    #$85,d0
  2150.     bra    L000aa2
  2151. L0014a2:
  2152.     moveq.l    #$87,d0
  2153.     bra    L000aa2
  2154. L0014a8:
  2155.     moveq.l    #$88,d0
  2156.     bra    L000aa2
  2157. L0014ae:
  2158.     bra    L000aa2
  2159. _APICG:
  2160.     .dc.b    'Advanced PIC Loader/Saver Library 「APICGLIB.a」',$0d,$0a
  2161.     .dc.b    '(C)1990-1994 GORRY.',$0d,$0a,$00
  2162. _APGVER:
  2163.     .dc.b    '2.11A',$00
  2164.     .even
  2165.  
  2166.